home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Subroutine⁄Params.ra < prev    next >
Encoding:
Text File  |  1986-10-17  |  635 b   |  44 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    Subroutine/Parameters
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA¬ allows you to use subroutines!"
  10. "and allows you to pass parameters.!"
  11. "The title which first came up!"
  12. "uses several subroutines.!!" 
  13. #A;
  14. "Parameters:!"
  15. #B,"hi!",1,2,3;
  16. "THE END."
  17. $
  18. &A
  19. "Hit any key: " ?ñ ╡ @`
  20. &B
  21. "Parameter test..." 1% 2% 3% 4% ++ 
  22. " " ! "=sum of parameters!!"
  23. #A; `
  24. |
  25. |  RA title routine
  26. |
  27. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  28.  
  29. &O
  30. 40 100 ╜
  31. "RA¬"
  32. 60 45 ╜ 
  33. "⌐ 1986 COM~LINK & S.Koren" 
  34. 80 60 ╜
  35. "All rights reserved." `
  36.  
  37. &L
  38. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  39.  
  40. &N
  41. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  42.  
  43. &P ?ñ @ `
  44. $